home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Database How-To / Visual Basic 4 Database - How-to (The Waite Group)(1995).iso / setupwiz.fr_ / setupwiz.fr
Text File  |  1995-07-06  |  3KB  |  126 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Setup Wizard Prototype"
  5.    ClientHeight    =   4230
  6.    ClientLeft      =   360
  7.    ClientTop       =   3195
  8.    ClientWidth     =   9105
  9.    BeginProperty Font 
  10.       name            =   "MS Sans Serif"
  11.       charset         =   0
  12.       weight          =   700
  13.       size            =   8.25
  14.       underline       =   0   'False
  15.       italic          =   0   'False
  16.       strikethrough   =   0   'False
  17.    EndProperty
  18.    Height          =   4635
  19.    Left            =   300
  20.    LinkTopic       =   "Form1"
  21.    ScaleHeight     =   4230
  22.    ScaleWidth      =   9105
  23.    Top             =   2850
  24.    Width           =   9225
  25.    Begin VB.CommandButton cmdClose 
  26.       Caption         =   "&Close"
  27.       Height          =   495
  28.       Left            =   3780
  29.       TabIndex        =   1
  30.       Top             =   3420
  31.       Width           =   1695
  32.    End
  33.    Begin VB.Label Label1 
  34.       AutoSize        =   -1  'True
  35.       BackColor       =   &H00C0C0C0&
  36.       Caption         =   "Publishers:"
  37.       Height          =   195
  38.       Left            =   240
  39.       TabIndex        =   2
  40.       Top             =   300
  41.       Width           =   945
  42.    End
  43.    Begin MSGrid.Grid Grid1 
  44.       Height          =   2535
  45.       Left            =   240
  46.       TabIndex        =   0
  47.       Top             =   600
  48.       Width           =   8595
  49.       _Version        =   65536
  50.       _ExtentX        =   15161
  51.       _ExtentY        =   4471
  52.       _StockProps     =   77
  53.       BackColor       =   -2147483643
  54.       FixedCols       =   0
  55.    End
  56. End
  57. Attribute VB_Name = "Form1"
  58. Attribute VB_Creatable = False
  59. Attribute VB_Exposed = False
  60. Option Explicit
  61.  
  62.  
  63. Private Sub cmdClose_Click()
  64.     End
  65. End Sub
  66.  
  67. Private Sub Form_Load()
  68.     Dim db As DATABASE
  69.     Dim dbName As String
  70.     Dim rs As Recordset
  71.     Dim sql As String
  72.     
  73.     On Error GoTo LoadError
  74.     
  75.     InitializeGrid
  76.     Me.Show
  77.     Me.Refresh
  78.     Screen.MousePointer = 11
  79.     
  80.     ' Get the database name and open the database.
  81.     dbName = BiblioPath()       ' BiblioPath is a function in READINI.BAS
  82.     Set db = DBEngine.Workspaces(0).OpenDatabase(dbName)
  83.     
  84.     sql = "SELECT [Name], [Address], [City], [State], [Zip]"
  85.     sql = sql & " FROM [Publishers] ORDER BY [Name]"
  86.     Set rs = db.OpenRecordset(sql, dbOpenSnapshot)
  87.     If rs.RecordCount > 0 Then
  88.         rs.MoveFirst
  89.         Do
  90.             Grid1.AddItem rs![Name] & Chr$(9) & rs! _
  91.                 [Address] & Chr$(9) & rs![City] & Chr$(9) & rs![State] & Chr$(9) & rs![Zip]
  92.             rs.MoveNext
  93.         Loop While Not rs.EOF
  94.     End If
  95.     Grid1.RemoveItem 1
  96.     Screen.MousePointer = 0
  97.     
  98. Exit Sub
  99. LoadError:
  100.     Screen.MousePointer = 0
  101.     MsgBox Err.Description
  102. Exit Sub
  103.     
  104. End Sub
  105. Private Sub InitializeGrid()
  106.     Grid1.Cols = 5
  107.         
  108.     Grid1.Row = 0
  109.     Grid1.Col = 0
  110.     Grid1.ColWidth(0) = 2600
  111.     Grid1.TEXT = "Publisher"
  112.     Grid1.Col = 1
  113.     Grid1.ColWidth(1) = 3000
  114.     Grid1.TEXT = "Address"
  115.     Grid1.Col = 2
  116.     Grid1.ColWidth(2) = 1200
  117.     Grid1.TEXT = "City"
  118.     Grid1.Col = 3
  119.     Grid1.ColWidth(3) = 400
  120.     Grid1.TEXT = "St"
  121.     Grid1.Col = 4
  122.     Grid1.ColWidth(4) = 1100
  123.     Grid1.TEXT = "Zip Code"
  124.     
  125. End Sub
  126.